Inside the White House/Inside the White House.iso/export.dir/00026.ls

Text File | 1995-07-11 | 505 b | 27 lines

on pushButton
  set snum to the clickOn
  set cnum to the castNum of sprite snum
  set the castNum of sprite snum to cnum + 1
  updateStage()
  repeat while the stillDown
    nothing()
  end repeat
  if rollOver(snum) then
    set rValue to 1
  else
    set rValue to 0
  end if
  set the castNum of sprite snum to cnum
  return rValue
end

on selection
  global tSprite
  if the selection = EMPTY then
    return 0
  else
    copyToClipBoard(cast the castNum of sprite tSprite)
    return 1
  end if
end